500
How can I select a column
With G2antt1
	.MarkSearchColumn = False
	.SingleSel = False
	.FullRowSelect = exRectSel
	.Columns.Add("Column1").Selected = True
	.Columns.Add "Column2"
	With .Items
		.CellValue(.AddItem("One"),1) = "One"
	End With
	With .Items
		.CellValue(.AddItem("Two"),1) = "Two"
	End With
	.Items.SelectAll 
End With
499
How can I avoid focusing a new cell, when user presses an arrow, page, home or end key, while the editor is opened
With G2antt1
	.DefaultEditorOption(exLeftArrow) = 0
	.DefaultEditorOption(exRightArrow) = 0
	.DefaultEditorOption(exUpArrow) = 0
	.DefaultEditorOption(exDownArrow) = 0
	.DefaultEditorOption(exHomeKey) = 0
	.DefaultEditorOption(exEndKey) = 0
	.DefaultEditorOption(exPageUpKey) = 0
	.DefaultEditorOption(exPageDownKey) = 0
	.Columns.Add("Edit").Editor.EditType = EditType
	.Columns.Add("Edit").Editor.EditType = EditType
	With .Items
		.CellValue(.AddItem(0),1) = 1
	End With
	With .Items
		.CellValue(.AddItem(2),1) = 3
	End With
End With
498
How can I expand predefined items in a drop down list editor as I type

With G2antt1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("DropDown")
		.Def(exCellValueFormat) = 1
		With .Editor
			.Option(exExpandOnSearch) = True
			.EditType = DropDownListType
			.DropDownAutoWidth = exDropDownEditorWidth
			.AddItem 1,"<b>CObject</b> class",1
			.InsertItem 2,"<b>CCmdTarget</b> class",2,1
			.InsertItem 3,"<b>CWnd</b> class",3,2
			.InsertItem 6,"<bgcolor=10A0E0><fgcolor=F0F0F0>S y n c</fgcolor>",1,1
			.AddItem 4,"Exceptions",1
			.InsertItem 7,"<b>System</b> Exceptions",2,4
			.AddItem 5,"File Services",2
		End With
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
497
How can I add an extra button to a date picker editor

With G2antt1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.DefaultItemHeight = 20
	With .Columns.Add("Date").Editor
		.EditType = DateType
		.AddButton "B1",2,1,"This is a bit of text that's shown when the cursor hovers the button B1"
		.ButtonWidth = 20
	End With
	With .Items
		.AddItem 0
		.AddItem 1
	End With
End With
496
How can I add an extra button to a spin editor
With G2antt1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.DefaultItemHeight = 20
	With .Columns.Add("Date").Editor
		.EditType = SpinType
		.AddButton "B1",2,1,"This is a bit of text that's shown when the cursor hovers the button B1"
		.ButtonWidth = 20
	End With
	With .Items
		.AddItem 0
		.AddItem 1
	End With
End With
495
How can I remove or delete the buttons in the editor
With G2antt1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("Edit").Editor
		.EditType = EditType
		.AddButton "B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1"
		.AddButton "B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3"
		.AddButton "B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4"
		.RemoveButton "B1"
		.ButtonWidth = 20
	End With
	With .Items
		.AddItem "Text 1"
		.AddItem "Text 2"
	End With
End With
494
How can I hide the buttons in the editor
With G2antt1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.DefaultItemHeight = 24
	With .Columns.Add("Edit").Editor
		.EditType = EditType
		.AddButton "B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1"
		.AddButton "B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3"
		.AddButton "B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4"
		.ButtonWidth = 0
	End With
	With .Items
		.AddItem "Text 1"
		.AddItem "Text 2"
	End With
End With
493
How can I change the width of the buttons in the editor
With G2antt1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.DefaultItemHeight = 24
	With .Columns.Add("Edit").Editor
		.EditType = EditType
		.AddButton "B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1"
		.AddButton "B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3"
		.AddButton "B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4"
		.ButtonWidth = 24
	End With
	With .Items
		.AddItem "Text 1"
		.AddItem "Text 2"
	End With
End With
492
How can I add extra buttons to an editor
With G2antt1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("Edit").Editor
		.EditType = EditType
		.AddButton "B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1"
		.AddButton "B2",2,0,"This is a bit of text that's shown when the cursor hovers the button B2"
		.AddButton "B3",3,1,"This is a bit of text that's shown when the cursor hovers the button B3"
		.AddButton "B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4"
	End With
	With .Items
		.AddItem "Text 1"
		.AddItem "Text 2"
	End With
End With
491
is there any function to specify the number of rows / items being visible in a drop down list editor
With G2antt1
	With .Columns.Add("DropDown").Editor
		.EditType = DropDownListType
		.AddItem 1,"First item"
		.AddItem 2,"Second item"
		.AddItem 3,"Third item"
		.DropDownRows = 1
		.PopupAppearance = FlatApp
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
490
How can I change the border for a drop down editor
With G2antt1
	With .Columns.Add("Date").Editor
		.EditType = DateType
		.PopupAppearance = FlatApp
	End With
	.Items.AddItem "Today"
	With .Items
		.CellEditor(.AddItem("Today"),0).EditType = DateType
	End With
End With
489
How can I remove a predefined item in a drop down editor
With G2antt1
	Set var_Editor = .Columns.Add("Color").Editor
	With var_Editor
		.EditType = ColorListType
		.Option(exColorListShowName) = True
		.RemoveItem 255
	End With
	.Items.AddItem 255
	.Items.AddItem 65280
End With
488
How can I remove or clear all predefined items in a drop down editor
With G2antt1
	Set var_Editor = .Columns.Add("Color").Editor
	With var_Editor
		.EditType = ColorListType
		.ClearItems 
		.AddItem 255,"Red Color"
	End With
	.Items.AddItem 255
End With
487
How can I center the predefined items in a drop down editor editor
With G2antt1
	With .Columns.Add("DropDown").Editor
		.EditType = DropDownListType
		.AddItem 1,"First item"
		.AddItem 2,"Second item"
		.AddItem 3,"Third item"
		.DropDownAlignment = CenterAlignment
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
486
How can I right align the items in a drop down editor editor
With G2antt1
	With .Columns.Add("DropDown").Editor
		.EditType = DropDownListType
		.AddItem 1,"First item"
		.AddItem 2,"Second item"
		.AddItem 3,"Third item"
		.DropDownAlignment = RightAlignment
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
485
How can I specify the width of the drop down editor
With G2antt1
	With .Columns.Add("DropDown").Editor
		.DropDownAutoWidth = exDropDownEditorWidth
		.DropDownMinWidth = 385
		.EditType = ColorListType
	End With
	With .Items
		.AddItem 255
		.AddItem 65280
	End With
End With
484
How can hide the drop down button for an editor
With G2antt1
	With .Columns.Add("DropDown").Editor
		.DropDownVisible = False
		.EditType = ColorListType
	End With
	With .Items
		.AddItem 255
		.AddItem 65280
	End With
End With
483
How can assign a tooltip to a drop down list editor
With G2antt1
	With .Columns.Add("DropDown").Editor
		.EditType = DropDownListType
		.AddItem 1,"First item"
		.AddItem 2,"Second item"
		.AddItem 3,"Third item"
		.ItemToolTip(1) = "This is a tooltip that shows when user hovers the <b>first</b> item"
		.ItemToolTip(2) = "This is a tooltip that shows when user hovers the <b>second</b> item"
		.ItemToolTip(3) = "This is a tooltip that shows when user hovers the <b>third</b> item"
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
482
How can I lock, disable make read only an editor
With G2antt1
	With .Columns.Add("DropDown").Editor
		.Locked = True
		.EditType = DropDownListType
		.AddItem 1,"First item"
		.AddItem 2,"Second item"
		.AddItem 3,"Third item"
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
481
How can I sort the items in a drop down list editor
With G2antt1
	With .Columns.Add("DropDown").Editor
		.EditType = DropDownListType
		.AddItem 1,"Second item"
		.AddItem 2,"First item"
		.AddItem 3,"Third item"
		.SortItems True
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
480
How can I expand an item in the tree or a hierarchy of a drop down editor
With G2antt1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("DropDown")
		.Def(exCellValueFormat) = 1
		With .Editor
			.EditType = DropDownListType
			.DropDownAutoWidth = exDropDownEditorWidth
			.AddItem 1,"<b>CObject</b> class",1
			.InsertItem 2,"<b>CCmdTarget</b> class",2,1
			.InsertItem 3,"<b>CWnd</b> class",3,2
			.InsertItem 6,"<bgcolor=10A0E0><fgcolor=F0F0F0>S y n c</fgcolor>",1,1
			.AddItem 4,"Exceptions",1
			.InsertItem 7,"<b>System</b> Exceptions",2,4
			.AddItem 5,"File Services",2
			.ExpandItem(1) = True
		End With
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
479
How can I display a tree or a hierarchy in a drop down editor
With G2antt1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("DropDown")
		.Def(exCellValueFormat) = 1
		With .Editor
			.EditType = DropDownListType
			.DropDownAutoWidth = exDropDownEditorWidth
			.AddItem 1,"<b>CObject</b> class",1
			.InsertItem 2,"<b>CCmdTarget</b> class",2,1
			.InsertItem 3,"<b>CWnd</b> class",3,2
			.InsertItem 6,"<bgcolor=10A0E0><fgcolor=F0F0F0>S y n c</fgcolor>",1,1
			.AddItem 4,"Exceptions",1
			.InsertItem 7,"<b>System</b> Exceptions",2,4
			.AddItem 5,"File Services",2
			.ExpandAll 
		End With
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
478
How can I look for items that includes the typed characters in a drop down list editor
With G2antt1
	With .Columns.Add("DropDown").Editor
		.Option(exAutoSearch) = 1
		.EditType = DropDownListType
		.AddItem 1,"First item"
		.AddItem 2,"Second item"
		.AddItem 3,"Third item"
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
477
How can I keep the selection background color while editor is visible

With G2antt1
	.SelBackColor = RGB(255,0,0)
	With .Columns.Add("DropDown").Editor
		.Option(exKeepSelBackColor) = True
		.EditType = DropDownListType
		.AddItem 1,"First item"
		.AddItem 2,"Second item"
		.AddItem 3,"Third item"
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
476
How can I select from a drop down list the editor, when the user starts typing in the editor, while it is closed and focused
With G2antt1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("DropDown").Editor
		.Option(exAutoDropDownList) = 1
		.EditType = DropDownListType
		.AddItem 1,"First item",1
		.AddItem 2,"Second item",3
		.AddItem 3,"Third item",2
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
475
How can I automatically drop down the list editor, when the user starts typing in the editor
With G2antt1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("DropDown").Editor
		.Option(exAutoDropDownList) = -1
		.EditType = DropDownListType
		.AddItem 1,"First item",1
		.AddItem 2,"Second item",3
		.AddItem 3,"Third item",2
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
474
How can I add a Font editor
With G2antt1
	.Columns.Add("Font").Editor.EditType = FontType
	.Items.AddItem "Tahoma"
End With
473
How can I change the visual appearance for the buttons in the calculator editor
With G2antt1
	Set var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = CalculatorType
		.Option(exCalcPictureUp) = G2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
		.Option(exCalcPictureDown) = G2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
	End With
	.Items.AddItem 10
End With
472
How can I customize the caption of buttons in the calculator editor

With G2antt1
	Set var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = CalculatorType
		.Option(exCalcButtons) = "0;1;2;3;4;5;6;7;8;9;<b>+</b>;<fgcolor=FF0000>=</fgcolor>"
	End With
	.Items.AddItem 10
End With
471
How can I customize the caption of buttons in the calculator editor
With G2antt1
	Set var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = CalculatorType
		.Option(exCalcButtons) = "0;1;2;3;4;5;6;7;8;9"
	End With
	.Items.AddItem 10
End With
470
How can I specify the width and height of the buttons in the calculator editor
With G2antt1
	Set var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = CalculatorType
		.Option(exCalcButtonWidth) = 32
		.Option(exCalcButtonHeight) = 32
	End With
	.Items.AddItem 10
End With
469
How can I change the "Cannot divide by zero" message that shows in the calculator editor
With G2antt1
	Set var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = CalculatorType
		.Option(exCalcCannotDivideByZero) = "Divizion by zero"
	End With
	.Items.AddItem 10
End With
468
How can I enable or disable executing operations while the calculator editor is focused and closed
With G2antt1
	Set var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = CalculatorType
		.Option(exCalcExecuteKeys) = False
	End With
	.Items.AddItem 10
End With
467
How can I add a calculator editor

With G2antt1
	.Columns.Add("Slider").Editor.EditType = CalculatorType
	.Items.AddItem 10
End With
466
How can I edit a number between a range or interval
With G2antt1
	Set var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = SliderType
		.Numeric = exInteger
		.Option(exSpinStep) = 0
		.Option(exSliderWidth) = 0
		.Option(exSliderMin) = 5
		.Option(exSliderMax) = 15
	End With
	.Items.AddItem 10
End With
465
How can I hide or show the spin in the slider or track bar editor
With G2antt1
	Set var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = SliderType
		.Option(exSpinStep) = 0
	End With
	.Items.AddItem 10
End With
464
How can I add a slider or track bar editor, with a fixed size
With G2antt1
	Set var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = SliderType
		.Option(exSliderWidth) = 64
	End With
	.Items.AddItem 10
End With
463
How can I add a slider or track bar editor, so it covers half of the cell
With G2antt1
	Set var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = SliderType
		.Option(exSliderWidth) = -50
	End With
	.Items.AddItem 10
End With
462
How can I add a slider or track bar editor, so it covers the full cell
With G2antt1
	Set var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = SliderType
		.Option(exSliderWidth) = -100
	End With
	.Items.AddItem 10
End With
461
How can I add a slider or track bar editor within a range or interval of numbers
With G2antt1
	Set var_Editor = .Columns.Add("Spin from 5 to 15").Editor
	With var_Editor
		.EditType = SliderType
		.Numeric = exInteger
		.Option(exSliderMin) = 5
		.Option(exSliderMax) = 15
	End With
	.Items.AddItem 10
End With
460
How can I add a slider or track bar editor within a range or interval of float numbers
With G2antt1
	Set var_Editor = .Columns.Add("Spin from 5 to 15").Editor
	With var_Editor
		.EditType = SliderType
		.Numeric = exFloat
		.Option(exSliderMin) = 0
		.Option(exSliderMax) = 1
		.Option(exSpinStep) = "0.01"
		.Option(exSliderStep) = "0.01"
	End With
	.Items.AddItem "0.3"
End With
459
How can I add a spin editor within a range or interval of float numbers
With G2antt1
	Set var_Editor = .Columns.Add("Spin from 5 to 15").Editor
	With var_Editor
		.EditType = SliderType
		.Numeric = exFloat
		.Option(exSliderWidth) = 0
		.Option(exSliderMin) = 0
		.Option(exSliderMax) = 1
		.Option(exSpinStep) = "0.01"
	End With
	.Items.AddItem "0.3"
End With
458
How can I add a spin editor within a range or interval of numbers
With G2antt1
	Set var_Editor = .Columns.Add("Spin from 5 to 15").Editor
	With var_Editor
		.EditType = SliderType
		.Numeric = exInteger
		.Option(exSliderWidth) = 0
		.Option(exSliderMin) = 5
		.Option(exSliderMax) = 15
	End With
	.Items.AddItem 10
End With
457
How can I add a slider or track bar editor
With G2antt1
	.Columns.Add("Slider").Editor.EditType = SliderType
	.Items.AddItem 10
End With
456
I have check box column, but the check-boxes looks disabled. What can I do
With G2antt1
	Set var_Editor = .Columns.Add("Check").Editor
	With var_Editor
		.EditType = CheckValueType
		.Option(exCheckValue2) = 1
	End With
	With .Items
		.AddItem False
		.AddItem True
		.AddItem False
	End With
End With
455
How do I add check box column, so the cell value is changed as I click the cells
With G2antt1
	.MarkSearchColumn = False
	With .Columns.Add("C")
		.Width = 18
		.AllowSizing = False
		With .Editor
			.EditType = CheckValueType
			.Option(exCheckValue2) = 1
		End With
	End With
	.Columns.Add "Text"
	With .Items
		.CellValue(.AddItem(False),1) = "Check 1"
		.CellValue(.AddItem(True),1) = "Check 2"
		.CellValue(.AddItem(False),1) = "Check 3"
	End With
End With
454
How do I add check box column, so the cell value is changed as I click the cells
With G2antt1
	.Columns.Add("Check").Editor.EditType = CheckValueType
	With .Items
		.AddItem False
		.AddItem True
		.AddItem False
	End With
End With
453
How do I disable adding new lines using the ENTER key in a memo or a multiple lines edit control

With G2antt1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = MemoDropDownType
		.Option(exMemoDropDownAcceptReturn) = False
	End With
	With .Items
		.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
"e line, and get it displayed on multiple lines."),0) = exCaptionWordWrap
	End With
End With
452
How do I add a vertical scroll bar for a memo or a multiple lines edit control
With G2antt1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = MemoDropDownType
		.Option(exMemoVScrollBar) = True
	End With
	With .Items
		.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
"e line, and get it displayed on multiple lines."),0) = exCaptionWordWrap
	End With
End With
451
How do I add a horizontal scroll bar for a memo or a multiple lines edit control
With G2antt1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = MemoDropDownType
		.Option(exMemoHScrollBar) = True
	End With
	With .Items
		.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
"e line, and get it displayed on multiple lines."),0) = exCaptionWordWrap
	End With
End With
450
How can I specify the width or the height for a drop down memo or a multiple lines edit control
With G2antt1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = MemoDropDownType
		.Option(exMemoDropDownWidth) = 256
		.Option(exMemoDropDownHeight) = 64
	End With
	With .Items
		.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines."),0) = exCaptionWordWrap
	End With
End With
449
How do I add a drop down memo or a multiple lines edit control
With G2antt1
	.Columns.Add("Edit").Editor.EditType = MemoDropDownType
	With .Items
		.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines."),0) = exCaptionWordWrap
	End With
End With
448
How do I add a color list editor with my own or custom colors
With G2antt1
	Set var_Editor = .Columns.Add("Color").Editor
	With var_Editor
		.EditType = ColorListType
		.Option(exColorListShowName) = True
		.ClearItems 
		.AddItem 255,"Red Color"
		.AddItem 16711680,"Blue Color"
		.AddItem 65280,"Green Color"
	End With
	.Items.AddItem 255
End With
447
How do I add a color list editor with my own or custom colors

With G2antt1
	Set var_Editor = .Columns.Add("Color").Editor
	With var_Editor
		.EditType = ColorListType
		.ClearItems 
		.AddItem 255,"Red Color"
		.AddItem 16711680,"Blue Color"
		.AddItem 65280,"Green Color"
	End With
	.Items.AddItem 255
End With
446
How can I show the color's name in a color list editor
With G2antt1
	Set var_Editor = .Columns.Add("Color").Editor
	With var_Editor
		.EditType = ColorListType
		.Option(exColorListShowName) = True
	End With
	.Items.AddItem 255
End With
445
How do I add a color list editor
With G2antt1
	.Columns.Add("Color").Editor.EditType = ColorListType
	.Items.AddItem 255
End With
444
How can I access my own custom or ActiveX editor

With G2antt1
	.DrawGridLines = exAllLines
	.DefaultItemHeight = 128
	With .Columns.Add("DropDown").Editor
		.EditType = UserEditorType
		.UserEditor "MSCAL.Calendar",""
		With .UserEditorObject
			.BackColor = RGB(255,255,255)
			.GridCellEffect = 0
			.ShowTitle = False
			.ShowDateSelectors = False
		End With
	End With
	With .Items
		.AddItem "MSCal.Calendar"
		.AddItem "MSCal.Calendar"
	End With
End With
443
How can I add my own custom or ActiveX editor
With G2antt1
	.DrawGridLines = exAllLines
	.DefaultItemHeight = 128
	With .Columns.Add("DropDown").Editor
		.EditType = UserEditorType
		.UserEditor "MSCAL.Calendar",""
	End With
	With .Items
		.AddItem "MSCal.Calendar"
		.AddItem "MSCal.Calendar"
	End With
End With
442
How can I add a hyperlink editor
With G2antt1
	.Columns.Add("Shell.Execute").Editor.EditType = LinkEditType
	.Items.AddItem "http://www.exontrol.com"
	.Items.AddItem "c:\"
End With
441
How can I add a drop down editor, that allows only predefined values, but still being able to edit and select

With G2antt1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("DropDown").Editor
		.EditType = PickEditType
		.AddItem 1,"The first item",1
		.AddItem 2,"The second item",3
		.AddItem 3,"The third item",2
	End With
	With .Items
		.AddItem "The first item"
		.AddItem "The third item"
	End With
End With
440
How can I show or hide the rectangle arround progress bar editor

With G2antt1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = RGB(128,255,255)
	Set var_Editor = .Columns.Add("Progress").Editor
	With var_Editor
		.EditType = ProgressBarType
		.Option(exProgressBarMarkTicker) = False
	End With
	.Items.AddItem 33
End With
439
How can I hide the caption / percent in the progress bar editor
With G2antt1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = RGB(128,255,255)
	Set var_Editor = .Columns.Add("Progress").Editor
	With var_Editor
		.EditType = ProgressBarType
		.Option(exProgressBarAlignment) = -1
	End With
	.Items.AddItem 33
End With
438
How can I align the caption in the center of the progress bar editor
With G2antt1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = RGB(128,255,255)
	Set var_Editor = .Columns.Add("Progress").Editor
	With var_Editor
		.EditType = ProgressBarType
		.Option(exProgressBarAlignment) = 1
	End With
	.Items.AddItem 33
End With
437
How can I align the caption to the right in the progress bar editor
With G2antt1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = RGB(128,255,255)
	Set var_Editor = .Columns.Add("Progress").Editor
	With var_Editor
		.EditType = ProgressBarType
		.Option(exProgressBarAlignment) = 2
	End With
	.Items.AddItem 33
End With
436
How can I change the background color for a progress bar editor
With G2antt1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = RGB(128,255,255)
	Set var_Editor = .Columns.Add("Progress").Editor
	With var_Editor
		.EditType = ProgressBarType
		.Option(exProgressBarBackColor) = 255
	End With
	.Items.AddItem 33
End With
435
How can I add a progress bar editor
With G2antt1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = RGB(128,255,255)
	.Columns.Add("Progress").Editor.EditType = ProgressBarType
	.Items.AddItem 33
End With
434
How can I add a button editor
With G2antt1
	.Columns.Add("Button").Editor.EditType = ButtonType
	.Items.AddItem "Just a text"
End With
433
How can I show or hide the type of the OLE Object for Photo or a Picture editor

With G2antt1
	.ColumnAutoResize = False
	With .Columns.Add("Photo")
		.Width = 74
		With .Editor
			.EditType = PictureType
			.Option(exShowPictureType) = False
		End With
	End With
	With .Items
		h = .AddItem()
		.CellValue(h,0) = G2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\sample.bmp`)")
		.ItemHeight(h) = 64
	End With
End With
432
How can I add a Photo or a Picture editor

With G2antt1
	.Columns.Add("Photo").Editor.EditType = PictureType
	With .Items
		h = .AddItem()
		.CellValue(h,0) = G2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\sample.bmp`)")
		.ItemHeight(h) = 64
	End With
End With
431
How can I hide or show the "System" page in the color editor
With G2antt1
	Set var_Editor = .Columns.Add("Color").Editor
	With var_Editor
		.EditType = ColorType
		.Option(exColorShowSystem) = False
	End With
	.Items.AddItem 255
End With
430
How can I hide or show the "Palette" page in the color editor
With G2antt1
	Set var_Editor = .Columns.Add("Color").Editor
	With var_Editor
		.EditType = ColorType
		.Option(exColorShowPalette) = False
	End With
	.Items.AddItem 255
End With
429
How do I add a color editor

With G2antt1
	.Columns.Add("Color").Editor.EditType = ColorType
	.Items.AddItem 255
End With
428
How do I change the masking character
With G2antt1
	Set var_Editor = .Columns.Add("Mask").Editor
	With var_Editor
		.EditType = MaskType
		.Mask = "###"
		.MaskChar = 48
	End With
	.Items.AddItem ""
End With
427
How do I mask an IP
With G2antt1
	Set var_Editor = .Columns.Add("IP").Editor
	With var_Editor
		.EditType = MaskType
		.Mask = "{0,255}\.{0,255}\.{0,255}\.{0,255}"
	End With
	.Items.AddItem "1.2.3.4"
End With
426
How do I add a mask editor

With G2antt1
	Set var_Editor = .Columns.Add("Mask").Editor
	With var_Editor
		.EditType = MaskType
		.Mask = "{0,255}\.{0,255}\.{0,255}\.{0,255}"
	End With
	.Items.AddItem "1.2.3.4"
End With
425
How to show or hide the week numbers header in a drop down date picker calendar editor
With G2antt1
	Set var_Editor = .Columns.Add("Date").Editor
	With var_Editor
		.EditType = DateType
		.Option(exDateWeeksHeader) = True
	End With
	.Items.AddItem "Today"
End With
424
How do I show or hide the bottom scroll bar in the drop down date picker calendar editor
With G2antt1
	Set var_Editor = .Columns.Add("Date").Editor
	With var_Editor
		.EditType = DateType
		.Option(exDateShowScroll) = False
	End With
	.Items.AddItem "Today"
End With
423
How do highlight the "Today" date is the drop down date picker calendar editor
With G2antt1
	Set var_Editor = .Columns.Add("Date").Editor
	With var_Editor
		.EditType = DateType
		.Option(exDateMarkToday) = True
	End With
	.Items.AddItem "Today"
End With
422
How do I show or hide the "Today" button is the drop down date picker calendar editor
With G2antt1
	Set var_Editor = .Columns.Add("Date").Editor
	With var_Editor
		.EditType = DateType
		.Option(exDateShowTodayButton) = False
	End With
	.Items.AddItem "Today"
End With
421
How to specify the first day of the week in the drop down date picker calendar editor
With G2antt1
	Set var_Editor = .Columns.Add("Date").Editor
	With var_Editor
		.EditType = DateType
		.Option(exDateFirstWeekDay) = 1
	End With
	.Items.AddItem "Today"
End With
420
How to specifies the shortcut for the weekdays to be displayed in the drop down date picker calendar editor
With G2antt1
	Set var_Editor = .Columns.Add("Date").Editor
	With var_Editor
		.EditType = DateType
		.Option(exDateWeekDays) = "Du Lu Ma Mi Jo Vi Si"
	End With
	.Items.AddItem "Today"
End With
419
How can I change the name of the months in the drop down date picker calendar editor
With G2antt1
	Set var_Editor = .Columns.Add("Date").Editor
	With var_Editor
		.EditType = DateType
		.Option(exDateMonths) = "Janvier Février Mars Avril Mai Juin Juillet Août Septembre Octobre Novembre Décembre"
	End With
	.Items.AddItem "Today"
End With
418
Can I change the "Today" caption being displayed in the drop down date picker calendar editor
With G2antt1
	Set var_Editor = .Columns.Add("Date").Editor
	With var_Editor
		.EditType = DateType
		.Option(exDateTodayCaption) = "Azi"
	End With
	.Items.AddItem "Today"
End With
417
How can allow empty date to drop down date picker control or a calendar control

With G2antt1
	Set var_Editor = .Columns.Add("Date").Editor
	With var_Editor
		.EditType = DateType
		.Option(exDateAllowNullDate) = True
	End With
	With .Items
		.AddItem #5/12/2012#
		.AddItem ""
		.AddItem #5/14/2012#
	End With
End With
416
How can I a drop down date picker control or a calendar control
With G2antt1
	.Columns.Add("Date").Editor.EditType = DateType
	With .Items
		.AddItem "Today"
	End With
End With
415
How can I have an OR combination of my bit values, something like a check-box list editor

With G2antt1
	With .Columns.Add("CkeckList")
		.Def(exCellValueFormat) = 1
		With .Editor
			.EditType = CheckListType
			.AddItem 1,"Bit <b>1</b>"
			.AddItem 2,"Bit <b>2</b>"
			.AddItem 4,"Bit <b>3</b>"
			.AddItem 8,"Bit <b>4</b>"
			.AddItem 16,"Bit <b>5</b>"
			.AddItem 32,"Bit <b>6</b>"
			.AddItem 64,"Bit <b>7</b>"
			.AddItem 128,"Bit <b>8</b>"
		End With
	End With
	With .Items
		.AddItem 112
		.AddItem 2
	End With
End With
414
How do I stop resizing the memo or a multiple lines edit control, while the user types
With G2antt1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = MemoType
		.Option(exMemoAutoSize) = False
		.Option(exMemoHScrollBar) = True
		.Option(exMemoVScrollBar) = True
	End With
	With .Items
		.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
"e line, and get it displayed on multiple lines."),0) = exCaptionWordWrap
	End With
End With
413
How do I add a horizontal scroll bar for a memo or a multiple lines edit control
With G2antt1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = MemoType
		.Option(exMemoHScrollBar) = True
	End With
	With .Items
		.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
"e line, and get it displayed on multiple lines."),0) = exCaptionWordWrap
	End With
End With
412
How do I add a vertical scroll bar for a memo or a multiple lines edit control
With G2antt1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = MemoType
		.Option(exMemoVScrollBar) = True
	End With
	With .Items
		.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
"e line, and get it displayed on multiple lines."),0) = exCaptionWordWrap
	End With
End With
411
How do I add a memo or a multiple lines edit control
With G2antt1
	.Columns.Add("Edit").Editor.EditType = MemoType
	With .Items
		.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines."),0) = exCaptionWordWrap
	End With
End With
410
How to specify the proposed change when the user clicks a spin control.
With G2antt1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = SpinType
		.Numeric = exInteger
		.Option(exSpinStep) = 10
	End With
	With .Items
		.AddItem 0
		.AddItem 10
		.AddItem 20
	End With
End With
409
How do I add a spin editor that allows only integer values
With G2antt1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = SpinType
		.Numeric = exInteger
	End With
	With .Items
		.AddItem 0
		.AddItem 1
		.AddItem 2
	End With
End With
408
How do I add a spin editor
With G2antt1
	.Columns.Add("Edit").Editor.EditType = SpinType
	With .Items
		.AddItem 0
		.AddItem 1
		.AddItem 2
	End With
End With
407
How do I specify in a drop down list editor, that I do not want to have predefined icon
With G2antt1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("DropDown").Editor
		.EditType = DropDownListType
		.AddItem 1,"The first item",1
		.AddItem 2,"The second item",3
		.AddItem 3,"The third item",2
		.Option(exDropDownImage) = False
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
406
How do I add a drop down editor, that allows only predefined values
With G2antt1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("DropDown").Editor
		.EditType = DropDownListType
		.AddItem 1,"The first item",1
		.AddItem 2,"The second item",3
		.AddItem 3,"The third item",2
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
405
How to allow the editor to work on insert or overtype mode
With G2antt1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EditType
		.Option(exEditAllowOverType) = True
		.Option(exEditOverType) = True
	End With
	With .Items
		.AddItem "000"
		.AddItem "111"
		.AddItem "222"
	End With
End With
404
How to set foreground color for a locked, or read only edit control
With G2antt1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EditType
		.Locked = True
		.Option(exEditLockedForeColor) = 8421504
	End With
	With .Items
		.AddItem "000"
		.AddItem "111"
		.AddItem "222"
	End With
End With
403
How to set background color for a locked, or read only edit control
With G2antt1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EditType
		.Locked = True
		.Option(exEditLockedBackColor) = 8421504
	End With
	With .Items
		.AddItem "000"
		.AddItem "111"
		.AddItem "222"
	End With
End With
402
How to set the number of characters selected, when an EditType editor is opened
With G2antt1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EditType
		.Option(exEditSelLength) = 1
	End With
	With .Items
		.AddItem "000"
		.AddItem "111"
		.AddItem "222"
	End With
End With
401
How to set the starting point of text selected, when an EditType editor is opened
With G2antt1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EditType
		.Option(exEditSelStart) = 1
		.Option(exEditSelLength) = 1
	End With
	With .Items
		.AddItem "000"
		.AddItem "111"
		.AddItem "222"
	End With
End With